perm filename BROWN[900,BGB] blob
sn#129588 filedate 1974-11-11 generic text, type T, neo UTF8
(SETQ IBASE (ADD1 9))
(DEFPROP ALLFNS
(NIL STATISTICS STAT ZZZ AAA SAFE IN PEOPLE CLASSES)
VALUE)
(DEFPROP STATISTICS
(LAMBDA NIL
(PROG (Z)
(SETQ Z (STAT))
(PRINC (QUOTE "NUMBER OF WOMEN "))
(PRINC (CAR Z))
(TERPRI)
(PRINC (QUOTE " NUMBER OF MEN "))
(PRINC (CADR Z))
(TERPRI)
(PRINC (QUOTIENT (PLUS 0.0 (CADR Z)) (CAR Z)))
(PRINC (QUOTE " MEN PER WOMAN"))
(TERPRI)
(PRINC (QUOTE "AVERAGE AGE "))
(PRINC (QUOTIENT (PLUS 0.0 (CADDDR Z)) (CADDR Z)))
(TERPRI)))
EXPR)
(DEFPROP STAT
(LAMBDA NIL
(PROG (FF MM NN AGE SEX TOT Z)
(SETQ Z ZZZ)
(SETQ TOT (SETQ FF (SETQ MM (SETQ NN 0))))
L (COND ((NULL Z) (RETURN (LIST FF MM NN TOT))))
(SETQ AGE (CAR (CDDDDR (CAR Z))))
(SETQ SEX (CAR (CDDDR (CAR Z))))
(COND ((EQ SEX (QUOTE M)) (SETQ MM (ADD1 MM))) (T (SETQ FF (ADD1 FF))))
(COND ((NUMBERP AGE) (SETQ TOT (PLUS TOT AGE)) (SETQ NN (ADD1 NN))))
(SETQ Z (CDR Z))
(GO L)))
EXPR)
(DEFPROP ZZZ
(NIL ((S-5 EN-30 R-3 A-27) CHERRI-L-NELSON NIL F 21)
((EN-23 SP-9 SP-24 SP-18 SP-20 SP-32) MADELINE-LOW "322-0540" F 28)
((A-27 EN-12 EN-41 EN-45 P-9 R-4 R-7 S-10) JEAN-TARSHIS "328-8752" F 23)
((EN-29 EN-35) DIANA-SWEET-O-HARE "968-0555" F 20)
((EN-29 EN-35) ANDY-O-HARE "968-0555" M 25)
((A-1 A-8 A-24 A-25 A-27 A-32 A-39 A-9 A-33 A-7) ADA-TAKAHASHI "327-4730" F 15)
((R-1 EN-26) "322-5725" PATRICIA-SNYDER F 24)
((R-1 A-35 EN-26) RICHARD-ROSS "742-4923" M 36)
((EN-1) TERRANCE-R-MAHURIA "322-1990" M 24)
((EN-29) PAT-OLIVER "968-8696" F 29)
((EN-41 EN-1 WE-6 P-8 EN-31) ROBERT-BROWNSTEIN "322-2494" M 23)
((EN-15 EN-18 EN-48 WE-6) ERIC-BREDO "948-9567" M 25)
((A-3 A-10 A-41 P-5) JOHN-DANIEL "327-8616" M 27)
((EN-10 A-42) MARSHALL-HOPPER "321-0298" M 21)
((EN-24) ALEX-PEREL "941-4439" M NIL)
((EN-10 A-17) FRANK-JOSEPH-PAPIERNIAK NIL M 22)
((P-3 P-13 PH-5 R-2 WE-9 R-6 EN-39 P-5) JOHN-LOHMAN "948-2332" M 17)
((EN-10) NINA-HAM "325-6314" F 29)
((R-1) WILL-SPIEGELMAN "851-1818" M 26)
((R-1 A-8) ANNETTE-HATAWAY "851-1818" F 26)
((P-3 P-9 EN-1 EN-41 S-4) CHARLES-DIVINE "322-3365" M 23)
((A-8 A-14 A-28) ANNE-HUBERMAN "328-4683" F 28)
((A-37 A-38 A-43 EN-23 EN-32 EN-35 P-15 S-6) WM-E-STOCKETT "322-3049" M 58)
(NIL WENDY-O-BRIEN LAGUNITO-BOX-104 F 18)
((A-24 A-27 A-29 A-42 EN-40 EN-51 R-6 S-6 SP-21) DENNY-LAWTON "323-8613 OR 327-2920" M 20)
((A-43 EN-31 EN-10 A-24) BRENT-VERNON "328-8751" M 20)
((WE-2) BEVERLY-RAMSEY "325-8136" F 36)
((A-1 A-25) BRAIN-MURRAY NIL M 22)
((A-8 A-25 R-7) CAROLYN-SHAFFER "322-1282" F 26)
((EN-10 EN-20) EINER-DALE-NIELSEN "354-7129" M 34)
((EN-10 EN-45) CHUCK-NOBLE "321-0298" M 22)
((EN-26 R-1 SP-13) JUDY-LEE "366-0544)
" F 26)
((S-10) DOROTHY-E-BENDER "325-8361" F 27)
((EN-32 EN-35 EN-42 EN-45 EN-46 EN-2 PH-1 EN-26) GLENN-COHEN "969-1610" M 23)
((EN-7 EN-18 EN-19) ELAINE-GARWIN "948-3239" F 36)
((EN-15 EN-23 EN-20 EN-45) HARRY-MOORE "326-5327" M 39)
((S-5 S-6 R-1 A-27) STEPHEN-WOOLPERT "328-7994" M 24)
((EN-12 A-1 A-33 EN-41) JANELLE-A-JAMES "328-8369" F 22)
((A-15 A-32 A-42 EN-41 EN-43 EN-48) VINCE-ZAGER "322-2881" M 26)
((EN-11 EN-19 EN-30 EN-40 EN-51 R-7 A-22 A-42 SP-4 SP-1) BRIAN-M-BONI "325-9986" M 24)
((A-41 EN-27 EN-48 PH-7 EN-10 EN-38 P-1 PH-1) BETH-FAUNG "325-9773
" F 59)
((R-1 A-29 R-3 EN-15) LOISE-M-DISIBIO "369-0481" F 30)
((A-1 A-11 S-7 S-8 S-10 S-9 WE-2) KATHE-LIKENS "948-7213" F 19)
((EN-53 EN-50) JERRY-FITZSIMMONS "341-7136" M 25)
((A-25 WE-2 WE-6) CHRISTINE-GROUBERT "326-7024" F 20)
((WE-3 ED-7 EN-48 SP-8) FRED-W-BUSH "322-1790" M 30)
((WE-9) SARA-WOLFE "941-1502" F 20)
((ED-5 EN-1 WE-3 WE-6 SP-4 EN-10 P-1) WALTER-L-BASS "851-8921" M 24)
((EN-12 EN-2 EN-29 EN-5 EN-10 EN-11 EN-38 EN-41) BILL-CASPARY "325-6075" M 32)
((A-17) POLLY-TALBOR "321-2200X417" F 18)
((A-35 EN-18 EN-20 EN-51 R-1 P-10) JIM-CHUBB NIL M 23)
((A-29 ED-7 EN-48 WE-8 A-1 A-14) MICHAEL-EDDY BOX3729STANFORD M 22)
((EN-39 EN-17 WE-3 A-11 EN-35 SP-3 S-10 EN-51 P-9) BOB-LITVAK NIL M 29)
((A-17 P-11 A-25 A-39 A-3 S-6 A-38) DIANA-LESLEY-GOLO "328-6478" F 21)
((R-1) CAROL-SUSAN-ROTH "321-8092" F 21)
((R-3 A-9 A-17) MARGARET-H-CHEEK "328-6478" F 20)
((P-3) JUDY-STRASSER "941-4682" F 24)
((ED-7 EN-49 SP-41 EN-20 EN-12 P-3) JAN-C-SIREN "968-9850" M 26)
((A-24 A-27 A-36 A-39 EN-10 EN-18 EN-45) A-L-FAHRANBRUCH "368-8350" M 32)
((EN-12 EN-45 EN-41) MEG-GRANITO "961-9666" F 31)
((A-30 A-36 A-38 EN-20 EN-26 EN-31 EN-35) ALEX-PEREL "941-4439" M 23)
((EN-12 EN-30) FERN-MILLER "736-8562" F 26)
((EN-18 A-27 EN-11 A-1 EN-3) RICHARD-JOHNSON "252-6870" M 34)
((P-11 P-15 P-13 A-35) PETER-LUCY "322-7624" M 19)
((A-38 EN-48 SP-4 EN-20 PH-1) DOUGLAS-C-HALL "323-4412" M 26)
((EN-1 EN-11 EN-38 EN-10 A-27 A-37 ED-5 P-3 P-4) AL-BARCLAY "328-4951" M 30)
((A-17 EN-51 A-43) KATHY-JACOMB "322-3763" F 26)
((A-17 A-1 A-38 EN-9 EN-30 EN-33 S-4 S-10) SHELAGH-E-LEUTERIO "941-0105" F 24)
((A-25 A-36 EN-1 EN-15 EN-23 EN-30 PH-1 PH-6 R-2 S-4 S-8 SP-3) GARY-GABLE "327-4688" M 20)
((A-17 S-6 A-38 S-5 EN-10 EN-18) LOIS-TOPPER "328-6478" F 21)
((A-10 A-14 A-25 A-27 EN-12 WE-6 WE-9 EN-40 EN-10) LINDA-JACOBSON "327-5242" F 26)
((EN-18 EN-20 EN-30 EN-35 EN-41 EN-43 WE-6) TOM-SCHAEFFER "322-5279" M 24)
((EN-23 EN-31 SP-4 EN-30) GEORGE-WERTHEIM ("854-6812" OR "321-1200" X5081) M 25)
((EN-12 EN-20 EN-4 A-43 EN-43 EN-41 A-35) WILLAIM-PLATT "278-3844" M NIL)
((EN-4 EN-20 EN-30 EN-45) SHELDON-BECKER ("321-2300" X4965 OR "328-0225") M 22)
((A-1) CLIFF-ANDERSON "948-5938" M 18)
((EN-48 EN-2 ED-7) MICHAEL-BOREING NIL M 17)
((A-24 R-4 WE-6 R-7 R-1) DALE-GUTZON-BORGLUM "328-1142" M 22)
((A-42 EN-51 EN-35 P-8 S-3 WE-9) WILLAIM-MEYERS (MESSAGE PHONES "854-0380" OR "325-7604") M 22)
((A-25 A-27 A-14) CHARLOTTE-H-TANNA "323-2820" F 18)
((A-9 A-27 WE-9 SP-4 A-32 S-6) SALLY-SEAVER "323-2820" F 18)
((EN-54 EN-5 S-8 SP-4 EN-42 EN-18) ROBERT-E-REPS "321-6668" M 17)
(NIL ALEX-BARCLAY "328-4941" M 24)
((A-1 A-5) MARK-TENNEN "327-1505" M 15)
((EN-1 EN-10 EN-23 EN-29) BRUCE-MOORMAN NIL M NIL)
((EN-4 EN-8 EN-30 WE-3) RICHARD-ALAN-REITMAN "324-2093" M 24)
((WE-3 WE-4 P-14 WE-9 P-12 P-15) HENRY-ALLEN-WILSON "323-3694" M 32)
((EN-3 EN-12 EN-29 EN-48 A-33) MARGO-TENNEY "327-1505" F 37)
((EN-18 EN-30 S-10) RUTH-MILIKIN "583-0781" F 17)
((EN-12 EN-29 EN-30 S-6 SP-9) JEROM-T-DAVIS "298-3594" M 32)
((A-2 A-22 A-17) ROBERTA-LONGHI "321-2300X4331" F 21)
((EN-11 EN-31 EN-42 EN-2 S-6 S-7 WE-6 SP-4) DAVE-DEMARTINI "345-2566" M 18)
((EN-12 P-5 A-30 EN-41) MARY-O-BREMIER "325-2136" F 32)
((EN-30 EN-41 EN-43 EN-45 EN-54) TOM-WILLAIMS NIL M 18)
((A-1 A-15 A-30 EN-4 EN-12 EN-15 EN-18 EN-31 EN-30 EN-32 EN-35 R-1 S-10) RICHARD-STILLMAN
"323-7140"
M
24)
((A-35) TONY-MARSH "252-6025" M 17)
((EN-18 EN-10 EN-26 EN-29 EN-31 S-10 WE-3 R-5 EN-42 EN-37 EN-32 ED-5) JOHN-JOSEPH-KENNEDY
"325-1108"
M
23)
((EN-1 EN-10 EN-42) BOB-GREENHAUGH "964-2864" M 20)
((S-6) JEAN-GUSTAFSON "968-4866" F 24))
VALUE)
(DEFPROP AAA
(NIL A-1
A-2
A-3
A-4
A-5
A-6
A-7
A-8
A-9
A-10
A-11
A-12
A-13
A-14
A-15
A-16
A-17
A-18
A-19
A-20
A-21
A-22
A-23
A-24
A-25
A-26
A-27
A-28
A-29
A-30
A-31
A-32
A-33
A-34
A-35
A-36
A-37
A-38
A-39
A-40
A-41
A-42
A-43
ED-1
ED-2
ED-3
ED-4
ED-5
ED-6
ED-7
EN-1
EN-2
EN-3
EN-4
EN-5
EN-6
EN-7
EN-8
EN-9
EN-10
EN-11
EN-12
EN-13
EN-14
EN-15
EN-16
EN-17
EN-18
EN-19
EN-20
EN-21
EN-22
EN-23
EN-24
EN-25
EN-26
EN-27
EN-28
EN-29
EN-30
EN-31
EN-32
EN-33
EN-34
EN-35
EN-36
EN-37
EN-38
EN-39
EN-40
EN-41
EN-42
EN-43
EN-44
EN-45
EN-46
EN-47
EN-48
EN-49
EN-50
EN-51
EN-52
EN-53
EN-54
EN-55
PH-1
PH-2
PH-3
PH-4
PH-5
PH-6
PH-7
P-1
P-2
P-3
P-4
P-5
P-6
P-7
P-8
P-9
P-10
P-11
P-12
P-13
P-14
P-15
R-1
R-2
R-3
R-4
R-5
R-6
R-7
S-1
S-2
S-3
S-4
S-5
S-6
S-7
S-8
S-9
S-10
S-11
WE-1
WE-2
WE-3
WE-4
WE-5
WE-6
WE-7
WE-8
WE-9
SP-1
SP-2
SP-3
SP-4
SP-5
SP-6
SP-7
SP-8
SP-9
SP-10
SP-11
SP-12
SP-13
SP-14
SP-15
SP-16
SP-17
SP-18
SP-19
SP-20
SP-21
SP-22
SP-23
SP-24
SP-25
SP-26
SP-27
SP-28
SP-29
SP-30
SP-31
SP-32
SP-33
SP-34
SP-35
SP-36
SP-37
SP-38
SP-39
SP-40
SP-41
SP-42
SP-43
SP-44
SP-45)
VALUE)
(DEFPROP SAFE
(LAMBDA NIL (DSKOUT BLACK (GRINL ALLFNS)))
EXPR)
(DEFPROP IN
(LAMBDA NIL
(PROG (A B C D E)
L (PRINC (QUOTE "COURSES "))
(SETQ A (READ))
(COND ((NUMBERP A) (RETURN NIL)))
(PRINC (QUOTE "NAME"))
(SETQ B (READ))
(PRINC (QUOTE "PHONE"))
(SETQ C (READ))
(PRINC (QUOTE "SEX"))
(SETQ D (READ))
(PRINC (QUOTE "AGE"))
(SETQ E (READ))
(SETQ ZZZ (CONS (LIST A B C D E) ZZZ))
(GO L)))
EXPR)
(DEFPROP PEOPLE
(LAMBDA(A Z)
(PROG (X)
(SETQ X Z)
L (COND ((NULL X) (RETURN NIL)))
(COND ((MEMBER A (CAAR X)) (PRINT (CDAR X))))
(SETQ X (CDR X))
(GO L)))
EXPR)
(DEFPROP CLASSES
(LAMBDA(Y)
(PROG (Q)
(SETQ Q Y)
L (COND ((NULL Q) (RETURN NIL)))
(TERPRI)
(PRINT (CAR Q))
(PEOPLE (CAR Q) ZZZ)
(SETQ Q (CDR Q))
(GO L)))
EXPR)